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**F ILE**1D**VAX780REG 


VV VV AAAAAA XX XX 77777777 H 8888 000000 RRRRRRRR EEEEEEEEEE 
VV VV AAAAAA Xx XX 77777777 8888 000000 RRRRRRRR EEEEEEEEEE 
VV VV AA AA XX XX 77 +88 88 00 00 RR RR EE 
VV VV AA AA XX XX 77 «+88 88 00 8° RR RR EE 
VV VV AA AA XX Xx 77 +88 88 00 0000 RR RR EE 
VV VV AA XX = Xx 77 ~+88 88 00 0000 RR RR EE 
VV VV AA AA XX 77 888888 00 00 00 RRRRRRRR EEEEEEEE 
VV VV AA AA XX 77 888888 00 00 00 RRRRRRRR EEEEEEEE 
VV VV AAAAAAAAAA XX = XX 77 88 88 0000 00 RR RR EE 
VV VV AAA XX = XX 77 88 88 0000 QO RR RR EE 

vv VV AA XX XX 77 88 88 00 00 RR RR EE 

VV VV AA AA XX XX 77 88 88 00 00 RR RR EE 

VV AA AA XX XxX 77 888888 000000 RR RR EEEEEEEEEE 
VV AA AA XX XX 77 888888 000000 RR RR EEEEEEEEEE 
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16-Sep-1984 00:30: VAX=11 FORTRAN V3.4-56 Page 1. VAX 
97300713 4 90:39:39 DI SKSVMSMASTER: CERF , SRCIVAX7BOREG.FORSY | 
0001 C 074 
p06 C Version: *v04-000' 074 
000 C 074 
Boge aaa laine ny ce miamgmen amegt Se oS Ne aC i ore 
we 2 ® | | 
C* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 074 
0007 C* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 074 
0008 C* ALL RIGHTS RESERVED. * 074 
0009 C* * 075 
0010 C* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * | 075 
0011 C* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 075 
borg C* | LUSION OF THE ABOVE COPYRIGHT NOTICE. THIS T * 075 
1 C* COPiES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 075 
0014 C* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 975 
BR? - TRANSFERRED. a O72 
te ® 
0017 C* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * | 075 
0018 C* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 075 
sib es CORPORATION. & ae 
® 
0021 C* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * | 
pos¢ C* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
002 Ce ra 
0024 Ce * 
BOS? “Rigen onsets ome te ae ane eS 
0027 
Boge SUBROUTINE VAX780REG (LUN, REGISTER) 
0080 C 
it ; AUTHOR BRIAN PORTER CREATION DATE 9-AUG-1979 | 
0038 ¢ Functional desciption: | 
0035 C This module displays alt the Kernel registers that appear in various 
0036 c error log entries for the 11/780. 
0038 C Modified by: | 
0039 C 
0040 ¢ 03-006 SAR0201 Sharon A. Reynolds, 27-Feb-1984 | 
0041 C Added an SYE update that fixes a bug in the 
ak ¢ SBI confirmation codes in SBIERR. 
4 C V03-005 SARO162 Sharon A. Reynolds. 13-0ct-1983 
5 : Added an SYE update that adds 11/7XX support. 
boc? C v03-004 SARO106 Sharon A. Reynolds, 20-Jun-1983 | 
8 C Changed the carriage control in the ‘format’ statements 
4 : for use with ERF. 
51 C v03-003 BP0012 Brian Porter, 27-FEB-1983 | 
26 : Enhanced sbi silo output. 
8 v03-002 P0011 Brian Porter, 19-AUG-1982 | 
:? : Corrected ms780e memory size. 
5 C v03-001 BP0010 Brian Porter, 19-FEB-1982 
| 


ze 
Sep-1984 


Beep abe 14:25:38 
p08 = Added ci780 support. 
? 

pds BYTE LUN 
8008 INTEGER®4 REGISTER 
Bose INTEGER*4 FIELD 
0068 INTEGER*4 COMPRESSC 
2970 integer*4 compress4 
bore integers4 LibSextzv 
Sore INTEGER®4 FIELD! 
0075 
9076 PARAMETER FOUR_K = 1 
th PARAMETER SIXTEEN_K = 2 
ole PARAMETER MA780_0 = 64 
008 PARAMETER MA780_3 = 67 
0084 PARAMETER UBA_O = 40 
0086 PARAMETER UBA_3 = 43 
0088 PARAMETER MS780_4K = 8 
$090 PARAMETER MS780_4KI = 9 
0092 PARAMETER MS780_16K = 16 
saa PARAMETER MS780_16KI = 17 
B08 PARAMETER DR780 = 48 
0098 PARAMETER MBA = 32 
$100 PARAMETER COMMAND_ADDRESS = 3 
B10 PARAMETER READ_DATA = 0 
O14 CHARACTER®21 V1UBA_REGA(16:18) 
33 CHARACTER#®17 V1MS780C_REGA(0:0) 
$88 character*17 vims780e_rega(8:8) 

aay equivalence (vims780c_rega,vims780e_rega) 
aK character*30 v2ms780e_rega(15:20) 

114 CHARACTER*26 MS780C_RAM_TYPE (0:3) 
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VAX780REG IG-ge -1984 00:30: VAX=11 FORTRAN V3.4=5 Pa 3 
meaty 7 10:39:38 DI SKSVNSMASTER: CERF. SRCIVAX7BOREG.FORSY 


3328 


° 
8 


aes character*26 ms780e_ram_type(0:3) 

‘ character*31 ms780e_interleave_mode(0:4) 

139 CHARACTER®24 = V2DRCR(11:11) 

91 é CHARACTER®21 = V3DRCR(15:20) 

1 4 CHARACTER®*15 = V4DRCR( 24:24) 

91 $ CHARACTER*®25 = VIDRCR(1:3) 

91 § CHARACTER*12 = SBI_CONFIRM(1:3) 

91 9 CHARACTER*®22 = V1SBI_ERROR(1:3) 

01 3 CHARACTER*23 = V2SBI_ERROR(7:8) 

01 4 CHARACTER®25 §V3SBI_ERROR(13:15) 

0136 CHARACTER*29 = VITIMEOUT_ADDR( 29:29) 

0138 CHARACTER*15 = ACCS_TYPE(0:2) 

0140 CHARACTER*20 ~—- VIACCS( 15:15) 

0142 CHARACTER*®23 = V2ACC$(27:29) 

9166 CHARACTER*6 V3ACCS(31:31) 

0146 CHARACTER®23. =: V1SBI_FAULT(16:19) 

0148 CHARACTER*31 = V2SBI_FAULT(26:31) 

9150 CHARACTER*31 = V1SBI_REGA(21:23) | 
0132 CHARACTER*31 = V2SBI_REGA(26:31) 

0136 CHARACTER*27 = V1SBI_COMPARATR(29: 31) 
0136 CHARACTER*22 =‘ TIMEOUT_STATUS(0:3) 

0138 CHARACTER*22 —‘I1B_STATUS(0:3) 

9160 CHARACTER®22 = CP_STATUS(0:3) | 
0162 CHARACTER*11 = REF_MODE (0:3) | 
0164 CHARACTER*21 = SBI_RESPONSE (0:2) 
0166 CHARACTER®17 —-V1SBI_SIL0(30:31) | 
ae3 CHARACTER®18 — SBI_TAG(0:7) | 
0170 CHARACTER*®25 = COND_LOCK(1:3) | 
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B28eb-1 4 90:39:38 DISKSVMSMASTER: CERF. SRCIVAX7BOREG.FORST® 


| 
CHARACTER*23 — SBI_FUNCTION(0:12) | 
| 


$178 
17 
Rife character*19 vici780_rega(8:10) 
176 character*25 v2ci780_rega(16:20) 
178 EQUIVALENCE (V2SB1_REGA,V2SB1_FAULT) 
0180 EQUIVALENCE (TIMEOUT_STATUS, I1B_STATUS) 
0186 EQUIVALENCE (TIMEOUT_STATUS, CP_STATUS) | 
$184 | 
0185 
0186 DATA V1UBA_REGA(16) /"UNIBUS INIT COMPLETE®'/ | 
0188 DATA V1UBA_REGA(17)/*UNIBUS POWER DOWN®'/ | 
c190 DATA - VIUBA_REGA(18) /*UNIBUS INIT ASSERTED*'/ | 
0198 | 
0194 DATA  MS780C_RAM_TYPE(0) /*NO ARRAY BOARDS PRESENT®*/ | 
0196 DATA  MS780C_RAM_TYPE(1) /*4K RAM ARRAY BOARDS*'/ | 
0198 DATA  MS780C_RAM_TYPE(2) /*16K RAM ARRAY BOARDS*'/ | 
! 
9200 DATA  MS780C_RAM_TYPE(3) /*MULTIPLE ARRAY TYPE ERROR®'/ | 
0202 | 
020 
asoe data ms780e_ram_type(0) /*MULTIPLE ARRAY TYPE ERROR®*'/ 
5344 data ms780e_ram_type(1) /*64K RAM ARRAY BOARDS*'/ 
Osos data ms780e_ram_type(2) /*256K RAM ARRAY BOARDS*'/ 
aso data ms780e_ram_type(3) /"NO ARRAY BOARDS PRESENT®'/ 
Otg 
O21 
0214 | 
0215 DATA —- V1MS780C_REGA(O)/*INTERLEAVED MODE®'/ 
0217 | 
0919 | 
O55¢ data v2ms780e_rega(15) /*LOWER MISCONF IGURATION®'/ 
0932 data v2ms780e_rega(16) /*UPPER MISCONF IGURATION®'/ 
0985 data §v2ms780e_rega(17) /*INTERLEAVE MISCONF IGURATION®'/ | 
3 data §_v2ms780e_rega(18) /*LOWER CONTROLLER PARITY ERROR*'/ | 
2 


5 
9 
8 


mr 


data v2ms780e_rega(19) /*UPPER CONTROLLER PARITY ERROR*'/ 


-———————— 
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0229 

b : data v2ms780e_rega(20) /*ERROR SUMMARY®'/ 

0535 

0234 

0235 data ms780e_ interleave _mode(0) 

8 § 1 /"NON-INTERLEAVED (LOWER) *'/ 

0238 data ms780e_interleave_mode(1) 

oe46 1 /*EXTERNALLY” INTERLEAVE” (LOWER) #'/ 

§ 41 data ms780e_interieave mode (2) 

beee 1 /"NON-INTERLEAVED (UPPER) *'/ 

0244 data ms780e_interleave_mode(3) 

ogo? 1 /*EXTERNALLY INTERLEAVED (UPPER) *'/ 

0247 data ms780e_interleave_mode(4) 

ogee 1 /"INTERNALLY 2-WAY INTERLEAVED®'/ | 

0250 

0251 

osee 

025 

0236 DATA VIDRCR(1) /"INTERLOCK SEQUENCE FAULT*'/ 

0626 DATA VIDRCR(2) /*READ DATA TIMEOUT FAULT®'/ 

b¢38 DATA VIDRCR(3) /*ILLEGAL TIMEOUT STATUS*'/ 099% 

0260 | 100! 

$562 DATA V2DRCR(11) /*DDI DATA STALL*'/ | 190! 
v Ate* y 

$568 1004 

0264 100! 

0265 1004 

0266 DATA V3DRCR(15) /*READ DATA SUBSTITUTE®'/ | 190 

aces DATA V3DRCR(16) /*CORRECTED READ DATAt'/ 1908 

0670 DATA —V3DRCR(17) /"MICRO=CODE HALTED*'/ 191. 

4 

Oot DATA V3DRCR(18) /*ABORT*'/ 191: 

bers DATA — V3DRCR(19) /*PACKET INTERRUPT®'/ 191: 

0276 DATA —- V3DRCR(20) /*INTERRUPT ENABLE®'/ | 101 

0278 101! 

0279 102( 

a4 DATA = V4DRCR(24) /"EXTERNAL ABORT*"/ 4 

0280 | 102. 

028 102: 

0284 DATA SBI_CONFIRM(1) /*ACKNOWLEDGE®'/ 102 

0285 1021 
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DATA 
DATA 


DATA 
DATA 
DATA 


DATA 
DATA 


DATA 


DATA 
DATA 


DATA 


DATA 


DATA 


DATA 


DATA 


DATA 


DATA 


DATA 


DATA 


SB1_CONF IRM(2) 
SB1_CONF IRM(3) 


V1SB1_ERROR(1) 
V1SB1_ERROR(2) 
V1SB1_ERROR(3) 


V2SB1_ERROR(7) 
V2SB1_ERROR(8) 


3 
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/*BuSY*'/ 
/*ERROR®'/ 


/*SBI NOT BuUSY*'/ 
/*MULTIPLE CPU ERROR®'/ 
/*IB ERROR CONF IRMATION®'/ 


/*1B RECEIVED RDS*'/ 
/*CPU ERROR CONF IRMATION®'/ 


V3SBI_ERROR(13) /"RDS CONFIRMATION®'/ 
V3SBI_ERROR(14) /*CRD CONF IRMATION®'/ 
V3SB1_ERROR(15) /'RDS/CRD INTERRUPT ENABLE®'/ 


V1TIMEOUT_ADDR 
ACCS_TYPE (0) 
ACCS_TYPE(1) 
ACCS_TYPE (2) 
VIACCS(15) 
V2ACCS(27) 
V2ACCS(28) 


V2ACCS(29) 


V3ACCS(31) 


/*PROTECTION CHECKED REFERENCE®'/ 
/*NOT PRESENT®'/ 

/*FLOATING POINT®'/ 

/"UNKNOWN® '/ 

/"ACCELERATOR ENABLED®'/ 
/*RESERVED OPERAND ERROR®*'/ 
/*OVERFLOW ERROR*'/ 


/*UNDERFLOW ERROR*'/ 


/*ERROR*'/ 
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VAX780REG 1$-se9-1984 90:30:38 VAX= 
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11 FORTRAN es page 
DISKSVMSMASTER: CERF .SRCIVAX780REG.FOR; 


DATA VISBI_FAULT(16) /*FAULT SILO LOCK*'/ 

DATA VISBI_LFAULT(17) /"SBI FAULT®'/ 

DATA VISBI_FAULT(18) /"FAULT INTERRUPT ENABLE*'/ 
DATA VISBI_FAULT(19) /*FAULT LATCH®'/ 


0.00 0000000000 


DATA V1SBI_REGA(21)/"ADAPTER OVER-TEMPERATURE®'/ 
DATA V1SBI_REGA(22)/"ADAPTER POWER-UP*'/ 
DATA V1SBI_REGA(23)/"ADAPTER POWER=DOWN*'/ 
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DATA V2SBI_REGA(26)/"TRANSMITTER DURING FAULT CYCLE*'/ 
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0 

370 DATA = V2SBI_REGA(27)/"MULTIPLE TRANSMITTER FAULT®"/ 

37 DATA — V2SBI_REGA(28)/"INTERLOCK SEQUENCE FAULT#'/ 1 

37% DATA —- V2SBI_REGA(29)/"UNEXPECTED READ DATA FAULT®"/ | 1 

376 DATA —- V2SBI_REGA(30)/"WRITE SEQUENCE FAULT®'/ | 

378 DATA  V2SBI_REGA(31)/"PARITY FAULT*'/ | } 

380 | 2 

383 | 5 

388 DATA —-V1SBI_COMPARATR(29)/"LOCK UNCCNDITIONAL®"/ | : 

385 DATA —_- V1SBI_COMPARATR(30)/"SILO LOCK INTERRUPT ENABLE®'/ 2 

$387 DATA —_—- V1SBI_COMPARATR(31)/*COMPARATOR SILO LOCKt'/ | 5 
0389 | ; 
0390 3 
0391 DATA —_— TIMEOQUT_STATUS(0)/"NO RESPONSE®' / | ; 
0398 DATA _— TIMEOQUT_STATUS(1)/"DEVICE BUSY®'/ | 
$398 DATA _—_—- TIMEQUT_STATUS(2)/*WAITING FOR READ DATA®'/ | ‘ 
Be DATA _— TIMEOQUT_STATUS(3)/"ILLEGAL®*/ | 13 
99 | 14 


dD 3 
ects BRE 1984 12:25:38 DISKSVMSMASTER: CERF ,SRCIVAX7BOREG.FORST® © 
00 | 
O¢ DATA —REF_LMODE (0) /*KERNEL®'/ 
04 DATA —REF_LMODE(1) /*EXECUTIVE®"/ 
06 DATA —REF_MODE (2) /*SUPERVISOR®"/ | 
Q DATA —REF_MODE (3) /"USER®"/ | 


DATA SBI_RESPONSE(0) /*ERROR FREE DATA®'/ 
DATA SBI_RESPONSE(1) /*CORRECTED READ DATA®’/ | 
DATA SBI_RESPONSE(2) /"READ DATA SUBSTITUTE®'/ | 


DATA VISBI_SILO(30) /*SBI INTERLOCKED*'/ | 
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DATA VISBI_SILO(31) /*FAULT CLEAR FLAG*'/ 


/*1D ONLY*'/ 


DATA = SBI_TAG(0) /*READ DATA®'/ 
; DATA  SBI_TAG(1) /"ILLEGAL TAG*'/ 
; DATA = SBI_TAG(2) /"ILLEGAL TAG*'/ | 4i 
$3 DATA $B1_TAG(3) /*COMMAND ADDRESS*'/ | 
3 DATA SBI_TAG(4) /"ILLEGAL TAG*'/ | ARI 
4 DATA = SBI_TAG(5) /*WRITE DATA®'/ 

DATA  SBi_TAG(6) /* INTERRUPT SUMMARY®*'/ 

DATA  SBI_TAG(7) /"ILLEGAL TAG*'/ 


DATA —- COND_LOCK(1) 
DATA —- COND_LOCK(2) 
DATA — COND_LOCK(3) 


/*ID AND TAG*'/ 
/*1D, TAG AND COMMAND/MASK®'/ 
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VAX7BOREG 1§-58 =1984 00:30:30  VAX=11_FORTRAN V3.4-56 p 
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Oc38 DATA = SBI_FUNCTION(O) /*ILLEGAL FUNCTION®'/ : 
9460 DATA = SBI_FUNCTION(1) /"READ MASKED®'/ 

046¢ DATA  SBI_FUNCTION(2) /"WRITE MASKED*'/ § 
0464 DATA = SBI_FUNCTION(3) /*ILLEGAL FUNCTION®'/ § 
0466 DATA = SBI_FUNCTION(4) /"INTERLOCK READ MASKED*'/ § 
0468 DATA  SBI_FUNCTION(5) /"ILLEGAL FUNCTION®'/ § 
0470 DATA  SBI_FUNCTION(6) /"ILLEGAL FUNCTION®'/ | § 
0472 DATA  SBI_FUNCTION(7) /*INTERLOCK WRITE MASKED*'/ | $ 
067% DATA  SBI_FUNCTION(8) /*EXTENDED READ*'/ | $ 
04676 DATA = SBI_FUNCTION(9) /*ILLEGAL FUNCTION®'/ | ‘ 
0478 DATA SBI_FUNCTION(10)/"ILLEGAL FUNCTION®'/ 

0480 DATA - SBI_FUNCTION(11)/"EXTENDED WRITE MASKED*'/ | LAB 
0482 DATA  SBI_FUNCTION(12)/"ILLEGAL FUNCTION®'/ 

ss | 
0686 data vici780_rega(8) /"POWER-FAIL DISABLE*'/ 1 
0488 data  vici780_rega(9) /"TRANSMIT DEAD*'/ 1 
gee) data v1ci780_rega(10)/"TRANSMIT FAIL*'/ | 
049 1 
028 | 

049 data v2ci780_rega(16)/"CORRECTED READ DATAt'/ | 

049 data v2ci780_rega(17)/"READ DATA SUBSTITUTE®'/ 

ba data v2ci780_rega(18)/*COMMAND TRANSMIT ERROR*'/ 


data v2ci780_rega(19)/"READ DATA TIMEOUT*'/ 
data v2ci780_rega(20)/*COMMAND TRANSMIT TIMEOUT*'/ 


ENTRY ACCS_780 (LUN,REGISTER) 


FIELD = LIBSEXTZV(0,8,REGISTER) 
CALL LINCHK (LUN,2) 
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WRITE(LUN,10) REGISTER ACCS TYPE (WIN(2 FIELD)) 
FORMAT(’ ',18,'ACCS',104,28.8,/,140, ACCELERATOR ', 
1 A<COMPRESSC’ CACCS_ TYPE (MIN(2,FIELB)))>) 

IF (FIELD .€Q. 1 


2 FIELD .€Q. 2) THEN 

CALL OUTPUT (LUN, REGISTER.VIACCS,15,15,15,'0") 
CALL OUTPUT (LUN, REGISTER, V2ACCS,27,27,29,'0") 
CALL OUTPUT (LUN, REGISTER, V3ACCS,31,31,31,'0") 


RETURN 


ENTRY SBI_FAULTREG (LUN,REGISTER) 


CALL LINCHK (LUN,1) 


WRITE (LUN, 30) REGISTER 
FORMAT(' *,18,'SBIFS',124,28.8) 


CALL OUTPUT (LUN,REGISTER,V1SB1_FAULT,16,16,19,'0") 
CALL OUTPUT (LUN,REGISTER,V2SBI_FAULT,26,26,31,'0") 
RETURN 


ENTRY SBI_COMPARATOR (LUN,REGISTER) 


CALL LINCHK (LUN,1) 


WRITE(LUN,40) REGISTER 
FORMAT(' °,18,*SBISC',124,28.8) 


FIELD = LIBSEXTZV(16,4,RECISTER) 

IF (FIELD .NE. 0) THEN 

CALL LINCHK (LUN,1) 

WRITE(LUN,50) FIELD 

FORMAT(' *,140,*COUNT FIELD = ',12,".") 
ENDIF 

FIELD = LIBSEXT2V(20,3,REGISTER) 

IF (FIELD .NE. 0) THEN 
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VAX780REG 1§-seo-1984 90: 3: 33 VAX=11 FORTRAN 


Pgs poge 
-Sep-1984 14: DISKSVMSMASTER: CERF .SRCJVAX780REG.FOR; 


71 
8 if CALL LINCHK (LUN,1) 

74 Wa ITE (LYM, 60) SB1 TAG(FIELD) 

76 60 yp -140, COMPARE TAG = ',A<COMPRESSC (SBI_TAG(FIELD))>) 

57 
0379 FIELD = LIBSEXTZV(23,4,REGISTER) 

580 IF (FIELD .NE. 0) THEN 
0581 
b286 CALL LINCHK (LUN,1) 
0584 WRITE(LUN, 70) FIELD 
0585 70 FORMAT(’ §,140,"COMPARE COMMAND/MASK = ',12,'.") 
Bere ENDIF 
44 FIELD = LIBSEXTZV(27,2,REGISTER) 
Beny IF (FIELD .NE. 0) THEN 
Bene CALL LINCHK (LUN,1) 
0594 WRITE CLUN, «1 Ry LOCK (FIELD) 
0595 80 FORMAT(* *LOCK = ',A<COMPRESSC (COND_LOCK(FIELD))>) 
B238 ENDIF 
Ree CALL OUTPUT (LUN,REGISTER,V1SBI_COMPARATR,29,29,31,'0") 
0600 RETURN 
0601 
060 
060 
see ENTRY SBI_MAINTENANCE (LUN,REGISTER) 
0606 

07 CALL LINCHK (LUN,1) 


8 
0609 ear, 90) REGISTER 
90 MAT(* *,18,"SBIMT',124,78.8) 


IF (JUAND(REGISTER, 'FOSFF900'X) .NE. 0) THEN 
CALL LINCHK (LUN, 1) 
WRITE LUN 100) 

100 —s- FORMAT(* §,T40, "DIAGNOSTIC MODE") 
ELSE 
IF (JIAND(REGISTER,'200000'X) .£0. 0) THEN 
CALL LINCHK (LUN,1) 


tS al 105) 
105 conte §140,'SBI INVALIDATE DISABLED") 


ENDIF 
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RETURN 
ENTRY SBI_LERROR (LUN,REGISTER) 


CALL LINCHK (LUN,1) 


WRITE(LUN,135) REGISTER 
FORMAT(' °,18,*SBIER',124,78.8) 


CALL OUTPUT (LUN,REGISTER,V1SBI_ERROR,1,1,3,'0") 
FIELD = LIBSEXTZV(6,1,REGISTER) 

IF (FIELD .NE. 0) THEN 

FIELD = LIBSEXT2V(4,2,REGISTER) 

CALL LINCHK (LUN,2) 

WRITE(LUN,140) IB STATUS(FIELD) 
FORMAT ( 140,5H 

base ® TIMEOUT") 
CALL OUTPUT (LUN,REGISTER,V2SBI1_ERROR,7,7,8,'0') 
FIELD = LIBSEXTZV(12,1,REGISTER) 

IF (FIELD .NE. 0) THEN 

Field = LIBSEXTZV(10,2,register) 

CALL LINCHK (LUN,2) 


WRITE(LUN, 150) CP STATUS(FIELD) 
FORMAT(' *°,140,A<TOMPRESSC (CP_STATUS(FIELD))>, 
1 py IneoUT «7.740, “CPU TIMEOUT*) 


CALL OUTPUT (LUN,REGISTER,V3SB8]_ERROR,13,13,15,'0") 
RETURN 


ENTRY SBI_TIMEOUT (LUN,REGISTER) 


CALL LINCHK (LUN,1) 
WRITE(LUN,155) REGISTER 


DISKSVMSMASTER: CERF .SRCJVAX780REG.FOR; 


IB ',A<COMPRESSC (IB_STATUS(FIELD))>,* TIMEOUT’, 


9 12 


| 
} 
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VAX780REG Ibge -1984 00:30: VAX=-11 FORTRAN V3.4-56 P 13) 
= ep-19 4 90:38:38 DI SKSVMSMASTER: CERF .SRCIVAX7BOREG. FORTY” 
begs 155 FORMAT(' ',18,"SBITA',124,78.8) 
$f FIELD = LIBSEXTZV(0,28, REGISTER) | 
94 CALL LINCHK (LUN,1) | 00 
0691 WRITE(LUN, 160) JISHFT (FIELD, 2) 010" 
069 160 FORMAT(' §,140,*TIMEOUT CONSOLE ADDR = ',28.8) | aS 
0694 CALL OUTPUT (LUN,REGISTER,V1TIMEOUT_ADDR,29,29,29, '0") | 919 
0696 FIELD = LIBSEXTZ2V(30,2,REGISTER) | 910 
0698 CALL LINCHK (LUN,1) | Hs 
0700 WRITE(LUN,170) REF MODE (FIELD) Orit 
0701 170 FORMAT(' .' TIMEOUT REFERENCE IN ' iN 
970 1 A<COMPRESSC (REF_MODE(FIELD))>," MODE") | a 
0704 RETURN | 1 
$708 Wi 
707 1 
708 ENTRY SBI_SILO (LUN,REGISTER) 11 
0709 11! 
0710 12 
i CALL LINCHK (LUN,1) | i$ 
1 WRITE(LUN, 175) REGISTER 12 
175 FORMAT(' ',124,28.8) \¢ 
} 00 15. = 0.1 H 
1 FIELD = LIBSEXTZV(J,1, REGISTER) \¢ 
2 IF (FIELD .NE. 0) THEN ; 
5 5 


WRITE(LUN,180) J 
FORMAT(* °,140,'TR ',12.2,". ACTIVE") 
ENDIF 


183 CONTINUE 
FIELD = LIBSEXTZ2V(16,2,REGISTER) 


180 


SN NNN NNN NNN NSN NSS 


WANA POPPIN 
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if ¢ 

1 field .ge. 1 
1 and. 

1 field .le. 3 

1) then 

CALL LINCHK (LUN,1) 


WRITE(LUN, 185) SBI_CONFIRM(FIELD) | 


ae 


| 
CALL LINCHK (LUN,1) 
| 
| 
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VAX7B0REG 1b. se-1984 00: 30: 30 VAX=11 FORTRAN ¥354 4-56 VAX! 
-Sep-1984 14: DISKSVMSMASTER: LERF . SRCJVAX780REG.FOR;: ms 
7% 185 FORMAT(’ *,140, "CONFIRMATION = 
74 1 A<COMPRESSC (SB1_CONFIRM(FIEL p$)>) 
preg endif | 
7% if (LibSextzv(18,12,register) .ne. 0) then 


PRAPAAADARIA 


else 


“| 
* 01 
01 
01 
| 01 
01 
O74 01 
0748 FIELD! = LIBSEXTZV(22,3, REGISTER) Bie 
0756 FIELD = LIBSEXTZV(18,4,REGISTER) | 16 
O73¢ CALL LINCHK (LUN,1) gt 
0784 IF (FIELD1 .£Q. COMMAND_ADDRESS) THEN aie 
0756 WRITE(LUN, 187) $81 FUNCTION(MIN(12,FIELD)) 0161 
0757 187 FORMAT(’ §,140,"FUNCTION = 016, 
0758 1 arcieene se (SB1_FUNCTION(MIN(12,FIELD)))>) B16 
0760 ELSE IF (FIELD1 .€Q. READ_DATA) THEN ote 
076¢ WRITECLUN, 189) $B1 RESPONSE (MIN(2,FIELD)) 017. 
076 189 FORMAT(' TA RE 017 
0764 V Aceonress¢ {SB1 RESPONSE (MIN(2,FIELD)))>9 ate 
0766 017( 
0767 WRITECLUN,191) FIELD 017; 
0768 191 FORMAT(' °,140,"MASK = ',71) 0171 
0769 ENDIF 
0771 FIELD = LIBSEXTZV(22,3,REGISTER) 
ori CALL LINCHK (LUN,1) 
0775 WRITE (LUN, 193) 381 TAG(F ELD) 
0776 193 FORMAT(' TAG = ',A<COMPRESSC (SBI_TAG(FIELD))>) | 
O778 FIELD = lation a oaaiiiaie 
0780 CALL LINCHK (LUN,1) | 
O78 if (field .ne. 16) then 
784 WRITE(LUN,197) FIELD 
5 197 FORMAT(’ §,140,°ID = *,12.2) 
| 
| 
i 


7 

7 

78 

788 write(lun,198) 

789 198 format(' °,t40,"ID = CPU") 

790 endif 

4 endif 

38 CALL OUTPUT (LUN,REGISTER,V1SBI_SILO,30,30,31,'0') | 
RETURN | 


7 
7 
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79 
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=Sep-1984 DISKSVMSMASTER: LERF .SRCJVAX780REG.FOR; | 
9799 ENTRY SBI_COMMAND (LUN,REGISTER) | 
0801 | 
080¢ CALL LINCHK (LUN,1) 
804 WRITE (LUN,200)  $B1_FUNCTION(MIN(12,REGISTER)) | 
805 200  FORMAT(’ 0 | 
080 1 re (SBI FUNCT ION(HIN(12,REGISTER)))>) 
0808 RETURN 
0809 
0810 
11 
081 
0815 ENTRY DR780_REGA (LUN,REGISTER) 
0815 
0816 
0817 
0818 CALL LINCHK (LUN,2) 
0820 WRITE (LUN, 209) REGISTER 
O821 209 FORMA .18,""'DR" CR',124,28.8) 
0838 FIELD = LIBSEXTZV(0,8,REGISTER) 
0825 CALL LINCHK (LUN,1) 
0826 
0827 IF (FIELD .NE. DR780) THEN 
899 WRITE (LUN, 210) 
830 = 210 ",140, "ADAPTER NOT "'DR'"") 
0831 Pee 
OB5¢ : 
083 WRITE (LUN, 2! 
OBS 215 FORMATC’ “Taue ADAPTER IS DR) 
0836 DO 230,J = 2,3 
0837 
0838 DO 230,1 = J#4, (Jed) + 3 
0840 FIELD = LIBSEXTZV(1,3,REGISTER) 
0842 IF ((FIELD*2)/2 .NE. FIELD) THEN | 
One CALL LINCHK (LUN, 2) | 
0846 WRITE (LUN, 220) (J=1) .VIDRCR(MIN(3, (FIELD#1)/2)),(J-1) | 
0847 220 FORMAT(’ *,140,'ID "011 ie 
0848 1 140, secofentist (VADRERUMINGS. (FIELD#1)/2))9>,° ID 811,42") | 
0849 ENDIF 
0850 | 
0851 yo | 
-e . 
333 1 tand. 
854 * 1 .eq. 8 
855 1) then 
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230 


240 


250 


256 


'; 


call output (lun,register,v2drer,11,11,11,'0") 
endif 


CONT INUE 

CALL OUTPUT (LUN,REGISTER,V3DRCR,15,15,20,'0') 
CALL OUTPUT (LUN,REGISTER,V1SBI_REGA,21,21,23,'0') 
CALL OUTPUT (LUN,REGISTER,V4DRCR,24,24,24,'0") 
eh we (LUN REGISTER, V2SBI_REGA,26,26,31,'0") 


RETURN 


ENTRY MS780C_REGA (LUN,REGISTER) 


CALL LINCHK (LUN,2) 


WRITE(LUN,240) REGISTER 
FORMAT(/" *,1T8,'CSRA',124,28.8) 


if (LibSextzv (5,3,register) .ne. 0) then 
call Linchk (lun,1) 
vorrei 7220) 
FORMAT(' 140, "ADAPTER NOT MEMORY TYPE ‘'C''') 
else 
CALL OUTPUT (LUN,REGISTER,V1IMS780C_REGA,0,0,0,'0") 
FIELD = LIBSEXTZV(3,2,REGISTER) 
CALL LINCHK (LUN,1) 


eS is 256) MS780C_RAM_TYPE(FIE aR 


FORMAT(’ °,T40,A<COMPRESSC (MS78 0C_ RAM TYPE (FIELD) )>) 


IF (FIELD .NE. 0) THEN 

IF (FIELD .€0. FOUR_K) THEN 
FIELD = LIBSEXTZ2V(9,4,REGISTER) 
ELSE IF (FIELD .€Q. SIXTEEN_K) THEN 
FIELD = LIBSEXTZV(9,6,REGISTER) 


VAX=11 FORTRAN 
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Bep-198¢ 14:25:38 DISKSVMSMASTER: LER, SRCIVAX7BOREG. FORTT® 


4] field = LibSextzv(3,2, register) 
9444 cali Linchk (lun,1) 


_.ehs a 


SoosoeeS 


| 
0913 field = (field+1) #64 
0914 | 
Bat? call Linchk (Llun,1) 
0917 WRITE (LUN, 255) 
344 255 FORMAT(' 2328, "ADAPTER IS MEMORY TYPE ‘'C''') 
44 ? CALL LINCHK (LUN,1) | 
09¢¢ WRITECLUN, 260) F LELD | 
09 260 1 °140,"MEMORY SIZE = ' -i<compress4 (field)>,'.K') 
83 ? ENDIF. 
bass CALL OUTPUT (LUN,REGISTER,V1SBI_REGA,21,22,23,'0') 
0399 CALL OUTPUT (LUN,REGISTER,V2SBI_REGA,26,26,28,'0') 
ats cotta (Lun, register,v2sbi_rega,26,30,31,'0') 
aat4 
093 RETURN 
0934 
0935 
0936 
0937 
0938 entry ms780e_rega (lun,register) 
0939 
0940. 
0941 
O3e LL Linchk (1 2) 
tat ca nc un, 003; 
0945 write(lun,261) register 003: 
0946 261 format(/" *,t8,*CSRA',t24,28.8) SOR. 
0948 if (LibSextzv(5,3,register) .ne. 3) then 005 
9950 call Linchk (Lun,1) oon 
095 write(lun,262) “ADAPTER NOT MEMORY TYPE “E‘* 004( 
095 262 format(' ',t40,a) 004) 
BA oa ase i 
095 field = LibSextzv(0,3, register) 904 
0958 if (field .le. 4) then | 904 

| 

$980 call Linchk (lun,1) 004i 
0961 004‘ 
096¢ write(lun,263) ms780e_interleave mode( field) ( 
096 263 format(* ',t40,a<compressc (ms780e_interleave_mode(field))>) 
0964 endif ( 
0965 | 

| 

| 
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Sep-1984 00:30: VAX=11 FORTRAN V3.4-5 
ig sep-1984 90:39:38 DISKSVMSMASTER: Lene S RCIVAX780REG. FOR; Se 
write(lun,264) ms780e_ram_type(fiel 


format(' *,t40,a<compressc (ms 7800. dl _type(field))>) 
call Linchk (Llun,1) 

write(lun,262) "ADAPTER JS MEMORY TYPE ‘'E'’ 

call output (lun,register,vims780e_rega,8,8,8,'0') 
field = LibSextzv(9,6,register) + 1 

call Linchk (lun,1) 


write(lun,265) field | 
format(' °,t40,"MEMORY SIZE = ‘,i<compress4 (field)>,'.M') 


call output (lun,register,v2ms780e_rega,15,15,20,'0") 
call output (lun,register,visbi_rega,21,22,23,'0') 


call output (lun,register,v2sbi_rega,26,26,28,'0') 
call output (lun,register,v2sbi_rega,26,30,31,'0") 
endif 


return 


ENTRY MA780_REGA (LUN, REGISTER) 


CALL LINCHK (LUN,2) 9 
WRITE (LUN, 269) REGISTER 9! 
FORMAT ( 18, 'PRICFNG’,124,28.8) ( 

FIELD = LIBSEXT2V(0,8, REGISTER) 9094 
IF (FIELD .LT. MA780_0 .OR. FIELD .GT. MA780_3) THEN 919 
CALL LINCHK (LUN,1) | 919, 
WRITECLUN, 275) | 0104 
FORMAT(*® §,140,"ADAPTER NOT MULTI-PORT MEMORY') | 010! 

ELSE 010¢ 
| { 

FIELD = LIBSEXTZ2V(0,2, REGISTER) | 019 
CALL LINCHK (LUN,2) | Orit 
WRITE(LUN, 277) FIELD 011; 
FORMAT(' ° 140, ‘ADAPTER 1s MULTI-PORT MEMORY',/, 011: 
1 RAAT ont NUMBER = ',11, 011 


& 
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-$ep-1984 14:25: DISKSVMSMASTER: CERF .SRCJVAX780REG.FOR; | 
1027 11 
i § CALL OUTPUT (LUN,REGISTER,V1SBI_REGA,21,21,23,'0") oi 
1 CALL OUTPUT (LUN,REGISTER,V2SBI_REGA,26,26,31,'0') 011 
' 1 ENDIF | gi] 
: : RETURN Hf 
1 
1035 | O12 
1 O12 
19 3 entry rh780_configuration_register (lun, register) gis 
| 
1040 O12 
1041 | 012 
1048 
iSe7 call Linchk (lun,2) | 
1045 write(lun,279) register 
1066 279 format(/' ',t8,'"'RH' CSR',t24,28.8) | PRO 
| 
H 4 field = LibSextzv(0,8,register) 
1939 call Linchk (lun,1) | ¢ 
1058 if (field .ne. mba) then é 
105 
1054 write(lun,280) 
1055 =. 280 format(’ §,t40,"ADAPTER NOT MBA') | 
1056 else 
1057 ENT 
1058 write(lun,285) | 
44 285 format(* ',t40,"ADAPTER IS MBA‘) | 
1083 call output (lun,register,visbi_rega,21,21,23,'0") | 0 
106 call output (lun,register,v2sbi_rega,26,26,31,'0') 
1064 eS et ite | VAR 
1068 | 
1066 return 
1067 4 
1068 é 
1069 
1079 
174 ENTRY UBA_REGA (LUN,REGISTER) | ARK 
1978 | 
1074 ; 
1075 ¢ 
1076 CALL LINCHK (LUN,2) 
1078 WRITE(LUN,289) REGISTER | 
107 289 FORMAT(/* *,T8,""'Dw'’ CSR',124,78.8) 
1081 FIELD = LIBSEXTZV(0,8,REGISTER) 
1088 CALL LINCHK (LUN,1) 
a 
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sci88t SEN bit oe 


-Sep-19 DISKSVMSMASTER: LERF .SRCJVAX780REG.FOR; 
084 
08° IF (FIELD .LT. UBA_O .OR. FIELD .GT. UBA_3) THEN 
087 WRITE (LUN, 295) 
088 295 FORMAT(' ',140,"ADAPTER NOT UBA') 
091 FIELD = LIBSEXTZV(0,2,REGISTER) | 
098 WRITE (LUN, 300) FIELD | 
G94 300 FORMAT(/" *,T40,*ADAPTER IS UBA ',11,'.') | 
O96 CALL OUTPUT (LUN,REGISTER,V1IUBA_REGA, 16,16,18,'0") | 
O38 CALL OUTPUT (LUN,REGISTER,V1SBI_REGA,21,21,23,'0') 


1 Napintead (LUN, REGISTER, V2SBI_REGA,26,26,31,'0") 


RETURN 


VMEPWN—O 


entry ci780_rega (lun,register) 


call Linchk (lun,2) 


write(lun,400) register 
400 format(/' *,t8,"CNFGR',t24,28.8) 


| 
call Linchk (lun,1) | 
if (LibSextzv(0,8,register) .ne. '38'x) then 
cs Hesse, porte wr cr 
else aRen 
write(lun,405) "ADAPTER IS "CI" | 
call output (lun,register,vici780_rega,8.8,10,'0") | 
call output (iun,register,v2ci780_rega,16,16,20,'0') 
call output (Llun,register,vilsbi_rega,21,22,23,'0") 
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call output (lun,register,v2sbi_rega,26,26,27,'0') | 


call output (lun,register,v2sbi_rega,26,29,31,'0') 
endif 


return 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


ee ee ee ee ek le Dk et ed a ed ed od dd 


Owe 


VAX780REG 1G: “sep-19 4 00:30:30 VAX=11 FORTRAN ¥3.6-56 page 21 trad 


“Sep-1984 14: DISKSVMSMASTER: CERF .SRCJVAX780REG.FOR; 
1141 END 


PROGRAF SECTIONS 


Name Bytes Attributes 
0$ 5228 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 1474 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
Z SLOCAL 5168 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
Total Space Allocated 11870 
ENTRY POINTS 
Address Type Name Address Type Name 
0-00000010 0-000010F7 Cire REGA 
0-000008BA DR780 ae 0-00000E45 MA780_REGA 
0-00000A73 ™S780T_R ae Sst H MS780E_REGA 
0-00000F 3E RH780 CONFIGURATION REGISTER 0-0000085C SB1_COMMAND 
0-00000138 SB1_COMPA 0-0000036A I-ERROR 
0-00000001 SBI “FAULIREG 0-000002C6 $B1 ~RAINTENANCE 
0-000005B80 SBI-SILO 0-0000048B SBI-T 
0-00001000 UBA_REGA 0-00000000 VAX7BOREG 
| 
VARIABLES | 
Address Type Name Address Type Name Address Type Name Address Type Name 
| 
2-00000A4C I*4 FIELD 2-00000A50 I*4 FIELD! 2-00000A58 I*4 | 2-00000A54 I*4 J 
AP-000000048 L*1 LUN 2-O00000A5Ca I*4 REGISTER | 
ARRAYS | 
Address Type Name Bytes Dimensions | 
2-0000056D CHAR ACCS_TYPE 45 (0:2) | 
mi sisi s+ CHAR COND-LOCK 75 «((3) 
CHAR CP_STATUS 88 (0:3) 
-00000000 CHAR 18, ya 88 0:3 
-00000216 CHAR MS780C_RAM_TYPE 104 (0:3) 
-000002E6 CHAR Rs 7/606 INTERLEAVE MODE 155 (0:4) 
-00000 3 CHAR MS780E_RAM_TYPE 104 yet 
-00000 9 CHAR x 44 9: ) 
-00000471 CHAR SBI_CONFIRM 36 «((3) 
86B CHAR SBI_FUNCTION 299 (0:12) 
72— CHAR SBI_RESPONSE 63 (0362 
7 CHAR 144 (0:7) 
-0 CHAR TEAeOUT STATUS 88 (0:3) 
-0000059A ¢9 (15:15) 
viel 80_REGA 7 (8:10) 
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~$0P 7138 90:39:38 DISKSVMSMASTER: CERF .SRCIVAX7B0REG.FOR:? 
26 «CHAR vipece 13 (3) 
-0 11 CHAR VIMS BOC -REGA 1 ( +0} 
000011 CHAR V1IMS780E_REGA 17 (8:8) 
- CHAR V1SB1_COMPARATR 81 (29:31) 
-00000495 CHAR V1SBI_ERROR 66 (5) 
Roope ese CHAR V1SBI1_FAULT 38 (16:19) 
- 55 CHAR V1SBI_REGA 9 6°63 
-00000 g CHAR V1SBI_ SILO 34 (30:31) 
- 5 HAR VITIMEOUT_ADDR 29 (29:29) 
- 9123 CHAR V1UBA_REGA 63 16:18) 
-Q00005AE CHAR V aces 69 (2 +4 
msi tt CHAR V2C1780_REGA 125 (16:20) 
-00000381 CHAR V pee 46 (11:11) 
-00000162 CHAR V2MS780E_REGA 180 (15:20) 
-000004D7 CHAR V2SBI_ERROR 46 (7:8) 
-00000058 CHAR V2SBI_FAULT 186 (26:31) 
278 CHAR V2SBI_REGA 186 geial} 
-000005F CHAR V3ACCS 6 (31:31) 
e- 399 CHAR V3DRCR 126 (15:20) 
2-00000505 CHAR V3SBI_ERROR 75 (13:15) 
2-00000417 CHAR V4DRCR 15 (24:24) 
LABELS 
Address Label Address’ Label Address Label Address Label Address Label Address’ Label 
1-Q00000CE 10° 1-000000F6 30' 1-00000108 40' 1-0000011A 50° 1-00000135 60° 1-00000151 0° 
1-00000175 80° 1-0000018A 90' 1-0000019C 100° 1-000001B3 105° 4's 94 92 135° 1-000001E4 140° 
1-0000020F 150° 1-00000235 155° 1=00000247 160° 1-00000269 170° ae $ 44 09 175° 1-0000029C 180° 
ee 183 1-000002B4 185' 1-000002D1 187° 1-Q00002EA 189° 1-00000304 191° 1-00000315 193° 
1-00000329 197° 1-0000033A 198° 1-0000034A 200° 1-00000363 209° 1-00000378 210° 1-00000390 215° 
1-000003A7 $20. hel 230 1-00000301 40° 1-000003E3 250° 1-00000412 255° 1-00000406 256° 
1-00000434 260° 1-00000454 261° 1-00000466 262' 1-0000046D 263' 1-00000479 264' 1-00000485 265° 
1-000004A5 269° 1-000004BA soe. 1-000004DF 77' 1-0000051B 279° 1-00000531 280° 1-00000548 285° 
1-0000055E 289° 1-00000574 295° 1-0000058B 300° 1-000005A8 400' 1-000005B8B 405° 
FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name Type Name Type Name 
1*4 COMPRESS4 I*4 COMPRESSC I*4 LIBSEXTZV LINCHK OUTPUT 


COMMAND QUALIFIERS 
FORTRAN /LIS=LIS$:VAX780REG/0BJ=0BJ$:VAX780REG MSRC$:VAX780REG 
See atte i tharken NOUNDERF LOW) 


MAP) 
/F77 /NOG_FLOATING /14 /OPTIMIZE /WARNINGS /NOD_LINES /NOCROSS_REFERENCE /NOMACHINE_CODE /CONTINUATIONS=19 


_seestenaing if: sen-1984 90:38 eg Pe UMGRRSTEN PERE ecJvAK7BOREG.FORTY® > 
COMPILATION STATISTICS 


un Time .57 socends 
Elapsed. Tine: seconds 
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AL EQUIPMENT CORPORATION 


- 
IDENTIAL AND PROPRIETARY. 


I 
= 


DIG 
CON 
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